5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53281,.:POKE53280,.:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
35 AD=49152:TQ=TI
40 SYSAD:SYSAD+12
45 SYSAD+9,0
50 PRINT"[147][153]       [196]EDICATED TO THE MEMORY OF-"
55 PRINT:PRINTTAB(5)"[197]UGENE [211]HOEMAKER  [1928 - 1997]"
57 PRINT:PRINTTAB(8)"[196]IED DOING WHAT HE LOVED!"
70 IFTI<TQ+150THEN70
80 SYSAD+9,1
90 BS$="[150][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
95 PRINT"[147][150][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
100 PRINTBS$""TAB(38)BS$
105 PRINT"[150][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
110 PRINT""TAB(11)"[150][166] [195][210][193][212][197][210] [205][193][203][197][210][150] [165]"
115 PRINT:PRINTTAB(5)"[150]-[153][197]NTER [208]ARAMETERS FOR [207]BJECT [150]-"
120 POKE214,6:PRINT:PRINTTAB(4)"[159][196]IAMETER [158]([205]ETERS - 50+): ";
122 L9%=5:GOSUB385:ID=Q9
125 IFID<=49THENPRINT"[145]":GOTO120
127 SYSAD+9,2
130 POKE214,8:PRINT:PRINTTAB(4)"[159][196]ENSITY [158](KG/CU/M - 2000+): ";
132 L9%=4:GOSUB385:IR=Q9
135 IFIR=<1999THENPRINT"[145]":GOTO130
137 SYSAD+9,2
140 POKE214,10:PRINT:PRINTTAB(4)"[159][214]ELOCITY [158](KM/S - 4+): ";
142 L9%=4:GOSUB385:IK=Q9
145 IFIK=<4THENPRINT"[145]":GOTO140
147 SYSAD+9,2
150 POKE214,12:PRINT:PRINTTAB(4)"[159][193]NGLE [158]20[219] [159]TO [158]90[219]: ";:L9%=2:GOSUB385:GA=Q9
155 IFGA=<20ORGA=>91THENPRINT"[145]":GOTO150
157 SYSAD+9,2
160 POKE214,17:PRINT:PRINTTAB(3)"[153][193]RE THE PARAMETERS CORRECT? (Y[153]/N[153])"
170 GOSUB530
175 IFA$="N"THEN80
190 IV=IK*1000:VI=(null)*ID*ID*ID/6
195 GF=(SIN(GA/180*(null)))^.33
200 MI=IR*VI:KE=.5*MI*IV*IV
205 KT=KE/4.2E+12
210 PRINT"[147]"TAB(7)"[150]-[154][207]BJECT'S [208]ARAMETERS[150]-":SYSAD+9,3
215 PRINT"[158][214]OLUME: ";INT(VI);"[158]CU/M"
220 PRINT"[205]ASS: ";INT(MI)/1000;"[158]METRIC TONS"
225 PRINT"[203]INETIC [197]NERGY: ";INT(KE)"[158][202]OULES"
230 PRINT"[203]ILO-[212]ONS OF [212][206][212]: ";INT(KT)
245 CD=36*(KT^.3)*GF:CA=CD*1.25
250 CZ=9*(KT^.3)*GF:CL=CZ*1.25
255 CV=(.5*(null))*(CD*CD/4*CZ)
260 CE=2.15*CD
265 IFCA=>5000THENCA=CA*1.3
270 IFCL=>5000THENCL=CL*1.3
275 PRINTTAB(8)"[150]-[154][195]RATER [208]ARAMETERS[150]-"
280 PRINTTAB(3)"[150]-[159][196][201][193][205][197][212][197][210][150]-"
285 PRINT"[158][193]CTUAL [211]IZE: ";INT(CD)/1000;"[158]KMS"
290 PRINT"[193]PPARENT [211]IZE: ";INT(CA)/1000;"[158]KMS"
295 PRINT:PRINTTAB(3)"[150]-[159][196][197][208][212][200][150]-"
300 PRINT"[158][193]CTUAL [196]EPTH: ";INT(CZ)/1000;"[158]KMS"
305 PRINT"[193]PPARENT [196]EPTH: ";INT(CL)/1000;"[158]KMS"
310 PRINT"[212]ARGET [210]EMOVED: ";INT(CV)/1000;"[158]CU/KMS"
315 PRINT"[197]JECTA [211]PREAD: ";INT(CE)/1000;"[158][203]MS [193]CROSS":SYSAD+9,4
320 IFINT(CD)>=100ANDINT(CD)<=3999THENGOSUB435
325 IFINT(CD)>=4000ANDINT(CD)<=14999THENGOSUB455
330 IFINT(CD)>=15000ANDINT(CD)<=75000THENGOSUB475
335 IFINT(CD)>=75001ANDINT(CD)<=125000THENGOSUB495
340 IFINT(CD)>=125001THENGOSUB515
345 GOSUB3000
350 GOTO80
385 Q9$="":POKE198,.
390 GETA$
395 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN390
400 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
405 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO432
410 IFLEN(Q9$)>=L9%THENSYSAD+9,2:GOTO390
415 IF(A$>="0"ANDA$<="9")THEN425
420 GOTO390
425 Q9$=Q9$+A$
430 PRINT""A$;:GOTO390
432 PRINT" [157][157] [157]";:GOTO390
435 PRINT:PRINT"[150][211]MALL CRATER, ONLY LOCAL DAMAGE! [204]IKE"
440 PRINT"[153] [146][163][176][176][176][180] [146] [150][205]ETEOR [195]RATER IN [193]RIZONA!"
445 PRINT"[215]OULD START A PANIC IN YOUR COMMUNITY!"
450 RETURN
455 PRINT:PRINT"[150][194]IG TROUBLE FOR ANY AREA [200][201][212]! [215]IPED"
460 PRINT"[153] [146][163][176][176][176][176][169][176][176][176][176][180] [146] [150]OUT ANY [205]ETROPOLIS"
465 PRINT"THAT LAY IN ITS PATH ON IMPACT!"
470 RETURN
475 PRINT:PRINTTAB(2)"[150][195]OUNTRIES WOULD SUFFER GREATLY!"
480 PRINTTAB(6)"[153] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][178][179][175][176][176][176][176][176][176][176][180]  [146][145][157][157][177] [146]"
485 PRINT:PRINTTAB(2)"[150][205]ILLIONS COULD BE KILLED INSTANTLY!"
490 RETURN
495 PRINT:PRINT"[150][205]AJOR ENVIROMENTAL DAMAGE TO OUR [197]ARTH!"
500 PRINTTAB(2)"[153] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][176][176][176][176][176][176][178][179][175][176][176][176][176][176][176][176][176][176][176][176][178][180]  [146][145][157][157][177] [146]"
505 PRINT:PRINT"[150]  [215]OULD BE A REAL CHALLEGE TO OVERCOME!"
510 RETURN
515 PRINT:PRINT"[150]  10-25% OF LIFE ON [197]ARTH MAY SURVIVE!"
520 PRINT" [153][174][157] [146][174][157][157]  [146][163][176][176][176][176][176][176][176][176][176][150][197]ARTH'S MANTLE[146][153][176][176][176][176][176][176][176][176][176][180]  [146][145][157][157][177] [146][145][157][177]"
525 RETURN
530 POKE198,0
540 GETA$
550 IFA$<>"Y"ANDA$<>"N"THEN540
560 RETURN
3000 POKE214,20:PRINT:PRINTTAB(8)"[159](1[159]) [196]ROP ANOTHER ONE
3010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU"
3020 [151]198,0
3030 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]3030
3040 [139]A$[178]"1"[167][142]
3050 [158]AD[170]15
3060 [153]"LOADLOAD"[199](34)"B.UNIVERSE"[199](34)","DV
3070 [153]"RUN28"
3080 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"CRATER MAKER":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"":Z$[178]" CONT                                      ":[151]214,8:[153]
60010 [153]" OPENFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]10:[153]Z$:[130]
60020 [153]" LOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGCONT"
60030 Z$(0)[178]"SPC( LEN (null) ATN (null) VAL (null)     (null) ATN (null) VAL (null) FN":Z$(1)[178]"BY LEFT$ENRY [LENORKY] LENOCHRAN"
60040 Z$(3)[178]"(LEN) 1997 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60050 Z$(5)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(6)="OR IN THE PUBLIC DOMAIN."
60080 Z$(8)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,10:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]